sub main()	dim d1 as date, d2 as date
	dim s as string
	d1 = new date
	d2 = new date

	s = d1.LongTime
	d2 = d1
	//d2.Totalseconds = d2.Totalseconds + 120
	d2.parsedate("5/6/2011")
	msgbox(s & " , " & d1.LongTime & d2.LongTime)
end sub